BEGIN "TSTARR"
REQUIRE "ADDARR.REL" LOAD_MODULE;
EXTERNAL PROCEDURE ADDARR(INTEGER ARRAY X; INTEGER Y, Z);

INTEGER I,LB,UB;
INTEGER ARRAY X[1:10];

LB← 1;
UB← 10;

FOR I← LB STEP 1 UNTIL UB DO
  PRINT(X[I],"	");

PRINT("
");

ADDARR(X,LB,UB);

FOR I← LB STEP 1 UNTIL UB DO
  PRINT(X[I],"	");

END;



ENTRY;
BEGIN

INTERNAL PROCEDURE ADDARR(INTEGER ARRAY X; INTEGER Y, Z);
    BEGIN
    INTEGER I;
    FOR I← Y STEP 1 UNTIL Z DO
	X[I]← X[I]+1;
    END;

END;